home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_14_1986_Transactor_Publishing.d64 / baud change (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  226b  |  9 lines
  1. 10 open 5,2,3,chr$(6)+chr$(0)
  2. 20 :
  3. 30 rem  - more pgm. lines -
  4. 40 :
  5. 50 input" baud rate > ";baud
  6. 60 a=int(1022730/baud/2-100): c=int(1022730/baud)
  7. 70 d=int(a/256): e=a-d*256: poke 661,e: poke 662,d
  8. 80 d=int(c/256): e=c-d*256: poke 665,e: poke 666,d
  9.